#!/usr/bin/perl
use Data::UUID;

my $g = new  Data::UUID;
my $master = $g->create();

print "\"".$g->create_from_name_str($master,rand(12345678))."\",\n\n";

